10 REM COPYRIGHT 1989 COMPUTE! PUBLICATIONS, INC. - ALL RIGHTS RESERVED
15 POKE53281,6:POKE53280,6:POKE646,1
20 PRINT"[147]"TAB(11)"   GRAPH MAKER   [146]"
30 PRINTTAB(12)"COPYRIGHT 1989":PRINTTAB(7)"COMPUTE! PUBLICATIONS, INC."
40 PRINTTAB(10)"ALL RIGHTS RESERVED"
50 FORX=0TO2000:NEXT
60 PRINT"[147]"TAB(9)" Y-AXIS [146] GRAPH RANGE"
70 PRINTTAB(14)" 1 [146] 0-40":PRINTTAB(14)" 2 [146] 0-100"
80 PRINTTAB(14)" 3 [146] 0-200"
90 PRINT""TAB(12)"SELECT (1-3) "
100 GETI$:IFI$<"1"OR I$>"3"THEN100
110 I=VAL(I$):IF I=1 THENMAX=40
120 IF I=2 THENMAX=100
130 IF I=3 THENMAX=200
140 PRINT" HOW MANY ITEMS WILL BE GRAPHED? (1-8)"
150 GETL$:IF L$<"1"ORL$>"8"THEN150
160 L=VAL(L$):PRINT"[147] ENTER A 3 CHARACTER LABEL AND A VALUE"
170 PRINT" FOR EACH ITEM TO BE GRAPHED. THE VALUE"
180 PRINT" ENTERED MUST FALL BETWEEN 0 -";MAX;""
190 FORX=1 TO L
200 PRINT" LABEL";X;:INPUTM$(X)
210 IFLEN(M$(X))<>3THENPRINT"[145][145][145]":GOTO200
220 PRINTTAB(17)"[145]VALUE FOR ";M$(X);:INPUTH(X)
230 IFH(X)<0ORH(X)>MAXTHEN220
240 NEXT
250 PRINT"[147] ENTER A TITLE (25 CHARACTERS OR LESS)   FOR YOUR GRAPH."
260 INPUT" TITLE: ";GT$
270 IFLEN(GT$)>25ORLEN(GT$)<1THEN250
280 PRINT"[147]  GRAPHING RANGE [146]  0 -";MAX
290 PRINT"  GRAPH LABELS [146]      VALUE [146]"
300 FORX=1TOL
310 PRINTTAB(5)M$(X);TAB(21)H(X):NEXTX
320 PRINT"  GRAPH TITLE [146] ";GT$
330 PRINT"       EVERYTHING CORRECT? Y/N[146]"
340 GETK$:IFK$=""THEN340
350 IFK$="N"THEN60
360 PRINT"[147]          ";GT$:FORX=0TO19:PRINT"     [171]":NEXTX
370 PRINT"     [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
380 PRINTTAB(6);
390 FORX=1TOL
400 PRINTH(X);
410 NEXT:PRINT
420 PRINT"       ";:FORTT=1TOL:PRINTM$(TT);" ";:NEXT:PRINT""
430 PRINT"  ";:IFMAX>40THENPRINT"[157]";
440 PRINTMAX
450 IFI=1THEN480
460 IFI=2THEN500
470 IFI=3THEN520
480 FORX=36TO10STEP-4:PRINT"  " X:NEXT
490 FORX=8TO0STEP-4:PRINT"   ";X:NEXTX:GOTO540
500 FORX=90TO10STEP-10:PRINT"  " X:NEXTX:PRINT"    0"
510 GOTO540
520 FORX=180TO100STEP-20:PRINT"  [157]"X:NEXTX
530 FORX=80TO0STEP-20:PRINT"  "X:NEXTX:PRINT"[145]    0":GOTO540
540 D=2:X=0:R=37:FORX=1TOL:PRINT"":R=R+4:FORSP=1TO3:PRINTSPC(255):NEXTSP
550 PRINTSPC(R)
560 D=D+4:PRINT"[145] [166][166][161]"
570 IFI<3ANDH(X)=0THEN700
580 IFI=3ANDH(X)<10THEN700
590 IFI=1ANDH(X)<4THEN680
600 IFI=2ANDH(X)<=5 THEN680
610 IFI=3ANDH(X)<=20THEN680
620 IFI=1THENY=INT(H(X)/2)-1:GOTO670
630 IFI=3THENY=INT(H(X)/10)-1:GOTO670
640 IFI=2THENAA=H(X)/10:BB=INT(H(X)/10):CC=AA-BB:IFCC=0THENY=BB*2-1:GOTO670
650 IFCC<=.5THENY=BB*2
660 Y=BB*2+1
670 FORB=1TOY-1:PRINTTAB(D)"[145][145] [166][166][161] ":NEXTB
680 PRINTTAB(D)"[145][145]  [162][187]":NEXTX
690 IFX=L+1THEN710
700 NEXTX
710 D=2
720 D=D+4:IFH(X)=0THEN740
730 PRINTTAB(D):PRINTH(X):NEXT
740 GETK$:IFK$=""THEN740
750 IFK$="A"THENRUN
760 IFK$="P"THEN790
770 PRINT"        'P' TO PRINT 'A' FOR ANOTHER "
780 GOTO740
790 PRINT"                                     "
800 OPEN6,4,6:PRINT#6,CHR$(15):CLOSE6
810 OPEN3,3,3:OPEN4,4:PRINT"";:FORC=0TO1022:GET#3,A$:PRINT#4,A$;:NEXT
820 PRINT"[147]":PRINT#4:CLOSE4:CLOSE3:GOTO360